printDigit:
  "0" + ->
.

0 "should print 0891: " -->

~a            # define a
~b:1          # define b
~c            # define c

$a printDigit
8 $:b         # b <- 8
$b 1 + $:c    # c <- b + 1
$b printDigit
$c printDigit
$c $b - $:a   # a <- c - n
$a printDigit
